#!/usr/bin/perl
#changestatus.cgi

require './mirrorman-lib.pl';
&ReadParse();

$selected_line=$in{'modline'};
$command=$in{'command'};

#&header($text{'mirror_title'}, "" , "index", 0, 1,);
#print $selected_line;
#print $command;

&change_mirrortab_status($selected_line, $command);
&change_rsync($selected_line, $command);
#&footer("/", $text{'index'});

&redirect("index.cgi");
